unit frmBase;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls;

type

  { TfrmBase }

  TfrmBase = class(TForm)
    imgIcon: TImage;
    lblSubtitulo: TLabel;
    lblTitulo: TLabel;
    pnlHeader: TPanel;
  private
    function GetSubtitulo: string;
    function GetTitulo: string;
    procedure SetSubtitulo(const AValue: string);
    procedure SetTitulo(const AValue: string);
    { private declarations }
  public
    { public declarations }
    property Titulo : string read GetTitulo write SetTitulo;
    property Subtitulo : string read GetSubtitulo write SetSubtitulo;
  end;

var
  _frmBase: TfrmBase;

implementation

{ TfrmBase }

function TfrmBase.GetSubtitulo: string;
begin
  result := lblSubtitulo.Caption;
end;

function TfrmBase.GetTitulo: string;
begin
  result := lblTitulo.Caption;
end;

procedure TfrmBase.SetSubtitulo(const AValue: string);
begin
  lblSubtitulo.Caption:= AValue;
end;

procedure TfrmBase.SetTitulo(const AValue: string);
begin
  lblTitulo.Caption:= AValue;
end;

initialization
  {$I frmBase.lrs}

end.

